10 POKE56,36:POKE55,0:CLR
20 DV=PEEK(186):IFDV<8THENDV=8
25 LF=1:POKE788,52
30 POKE53281,0:POKE53280,0:PRINT"[147][129]"TAB(8)"[204][207][193][196][211][212][193][210]'[211] [207][208] [197][196] [195][193][210][212][207][207][206][211]"
40 PRINT"[155]     BY [211]TEVEN [215]RIGHT AND [194]ILL [204]AABS
42 [139]F1[167]100
44 F1[178]1
46 [151]214,4:[153]:[153]"CONT       (null)OADING (null)RIGHT$LEN(null) - PLEASE WAIT.
50 SYS57812"WP/CM/UNP",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
64 SYS57812"CPU OR.SHP",DV,0:POKE780,0:POKE781,0:POKE782,100:SYS65493
66 SYS57812"USER FIENDLY.SHP",DV,0:POKE780,0:POKE781,0:POKE782,115:SYS65493
68 SYS57812"AIM & CLICK.SHP",DV,0:POKE780,0:POKE781,0:POKE782,135:SYS65493
69 SYS57812"TECHNOLOGY.SHP",DV,0:POKE780,0:POKE781,0:POKE782,36:SYS65493
80 POKE781,5:SYS59903
90 POKE53280,0
92 WP=49152:UN=51456:CM=50688
94 LF$(0)="[207][198][198]":LF$(1)="[207][206] "
96 S(1)=100:S(2)=115:S(3)=135:S(4)=36
100 POKE214,6:PRINT:PRINTTAB(8)" 1.[154] [195][208][213] [207]PERATING [210]OOM - [211][215]
101 [153][163]8)" 2.CONT (null)SER ASCIENDLY - (null)(null)
102 PRINTTAB(8)" 3.[154] [193]IM AND [195]LICK - [211][215]
103 [153][163]8)" 4.CONT (null)ECHNOLOGY? - PEEK(null)
105 PRINTTAB(8)" 5.[154] [209]UIT
106 [161]A$:[139]A$[179]"1"[176]A$[177]"5"[167]106
108 D[178][197](A$):[139]D[178]5[167]40000
109 [129]I[178]5[164]16:[151]781,I:[158]59903:[130]
112 [151]251,S(D):[151]252,64:[151]253,96:[158]51456
120 [151]214,6:[153]:[153]" 1.CONT MID$UST SHOW THE PICTURE.
122 PRINT" 2.[154] [211]HOW THE PICTURE AND PRINT IT ON
125 [153]"    A 7-PIN (1525-EMULATING) PRINTER.
130 PRINT" 3.[154] [211]HOW THE PICTURE AND PRINT IT ON
135 [153]"    AN 8-PIN (VALPSON-EMULATING) PRINTER.
140 PRINT" 4.[154] [212]OGGLE LINEFEED -- "LF$(LF)
150 PRINT" 5.[154] [210]ETURN TO [204][207][193][196][211][212][193][210]
170 [153]"LIST  (null)AKE SURE YOUR PRINTER IS ON-LINE.
220 POKE198,0
222 POKE53280,0
230 GETA$:IFA$<"1"ORA$>"5"THEN230
232 IFA$="5"THEN40000
233 IFA$="4"THENLF=1-LF:POKE214,14:PRINT:PRINTTAB(23)""LF$(LF):GOTO220
235 SYS51459
240 IFA$="2"THENSYS49155,4,0,LF,0,0,39,24,64:GOTO280
250 IFA$="3"THENSYS49152,4,5,LF,0,0,39,24,64,75,35,51,24,0:GOTO280
260 POKE198,0
262 POKE53280,0
270 GETA$:IFA$=""THEN270
280 POKE251,S(D):POKE252,64:POKE253,96:SYS51459
282 POKE186,DV
290 PRINT"[147]":GOTO30
10000 DV=PEEK(186):N$="B.OP ED 153":OPEN15,DV,15,"S0:"+N$:CLOSE15:SAVEN$,DV:END
40000 POKE788,49
40002 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END